***In-text regressions for "Foreign Media Broadcasts..."
***Dr. Hannah S. Chapman
***May 29, 2019

log using ChapmanGerber.log, replace
set more off
use Replication_Dataset_SoftPower.dta

***Set weights
svyset rid [weight=weights]

cmp setup

*Table 1: Agenda Setting
/*Column 1*/ eststo: cmp (domestic1 = i.rtv5  tvexpose i.affinity remit i.educ ib2.income urban i.age female ib2.ethnicity, iia) (rtv5 = lang  tvexpose i.affinity remit i.educ ib2.income urban i.age female ib2.ethnicity, iia) [weight=weights], ind($cmp_cont $cmp_oprobit) nolrt difficult
/*Column 2*/ eststo: cmp (domestic1 = i.rtv5  tvexpose i.rusweb webexpose i.affinity remit i.educ ib2.income urban i.age female ib2.ethnicity, iia) (rtv5 = lang  tvexpose i.rusweb webexpose i.affinity remit i.educ ib2.income urban i.age female ib2.ethnicity, iia) [weight=weights], ind($cmp_cont $cmp_oprobit) nolrt difficult
/*Column 3*/ eststo: cmp (forpolr1 = i.rtv5  tvexpose i.affinity remit i.educ ib2.income urban i.age female ib2.ethnicity, iia) (rtv5 = lang  tvexpose i.affinity remit i.educ ib2.income urban i.age female ib2.ethnicity, iia) [weight=weights], ind($cmp_cont $cmp_oprobit) nolrt difficult
/*Column 4*/ eststo: cmp (forpolr1 = i.rtv5  tvexpose i.rusweb webexpose i.affinity remit i.educ ib2.income urban i.age female ib2.ethnicity, iia) (rtv5 = lang  tvexpose i.rusweb webexpose i.affinity remit i.educ ib2.income urban i.age female ib2.ethnicity, iia) [weight=weights], ind($cmp_cont $cmp_oprobit) nolrt difficult
/*Column 5*/ eststo: cmp (warwho1 = i.rtv5  tvexpose i.affinity remit i.educ ib2.income urban i.age female ib2.ethnicity, iia) (rtv5 = lang  tvexpose i.affinity remit i.educ ib2.income urban i.age female ib2.ethnicity, iia) [weight=weights], ind($cmp_probit $cmp_oprobit) nolrt difficult
/*Column 6*/ eststo: cmp (warwho1 = i.rtv5  tvexpose i.rusweb webexpose i.affinity remit i.educ ib2.income urban i.age female ib2.ethnicity, iia) (rtv5 = lang  tvexpose i.rusweb webexpose i.affinity remit i.educ ib2.income urban i.age female ib2.ethnicity, iia) [weight=weights], ind($cmp_probit $cmp_oprobit) nolrt difficult
eststo clear

*Table 2: Issue Framing
/*Column 1*/ eststo: svy: reg domestic2 ib1.rtv5 tvexpose i.affinity remit i.educ ib2.income urban i.age female ib2.ethnicity 
/*Column 2*/ eststo: svy: reg domestic2 ib1.rtv5 tvexpose i.rusweb webexpose i.affinity remit i.educ ib2.income urban i.age female ib2.ethnicity 
/*Column 3*/ eststo: svy: ologit forpolr2 ib1.rtv5 tvexpose i.affinity remit i.educ ib2.income urban i.age female ib2.ethnicity
/*Column 4*/ eststo: svy: ologit forpolr2 ib1.rtv5 tvexpose i.rusweb webexpose i.affinity remit i.educ ib2.income urban i.age female ib2.ethnicity
/*Column 5*/ eststo: svy: ologit relrus2 ib1.rtv5 tvexpose i.affinity remit i.educ ib2.income urban i.age female ib2.ethnicity 
/*Column 6*/ eststo: svy: ologit relrus2 ib1.rtv5 tvexpose i.rusweb webexpose i.affinity remit i.educ ib2.income urban i.age female ib2.ethnicity 
/*Column 7*/ eststo: cmp (relusa2 = i.rtv5  tvexpose i.affinity remit i.educ ib2.income urban i.age female ib2.ethnicity, iia) (rtv5 = lang  tvexpose i.affinity remit i.educ ib2.income urban i.age female ib2.ethnicity, iia) [weight=weights], ind($cmp_oprobit $cmp_oprobit) nolrt difficult
/*Column 8*/ eststo: cmp (relusa2 = i.rtv5  tvexpose i.rusweb webexpose i.affinity remit i.educ ib2.income urban i.age female ib2.ethnicity, iia) (rtv5 = lang  tvexpose i.rusweb webexpose i.affinity remit i.educ ib2.income urban i.age female ib2.ethnicity, iia) [weight=weights], ind($cmp_oprobit $cmp_oprobit) nolrt difficult
/*Column 9 & 11*/ eststo: cmp (warwho2 = i.rtv5  tvexpose i.affinity remit i.educ ib2.income urban i.age female ib2.ethnicity, iia) (rtv5 = lang  tvexpose i.affinity remit i.educ ib2.income urban i.age female ib2.ethnicity, iia) [weight=weights], ind($cmp_mprobit $cmp_oprobit) nolrt difficult
/*Column 10 & 12*/ eststo: cmp (warwho2 = i.rtv5  tvexpose i.rusweb webexpose i.affinity remit i.educ ib2.income urban i.age female ib2.ethnicity, iia) (rtv5 = lang  tvexpose i.rusweb webexpose i.affinity remit i.educ ib2.income urban i.age female ib2.ethnicity, iia) [weight=weights], ind($cmp_mprobit $cmp_oprobit) nolrt difficult

